package t::TestXMLAll;
use Test::Base -Base;

filters {
    xml_start => 'xml_literal',
    xml_add => 'xml_literal',
    xml_expect => 'xml_literal',
};

package t::TestXMLAll::Filter;
use Test::Base::Filter -Base;

sub xml_literal {
    my $xml = shift;
    chomp $xml;
    eval "< $xml >";
}

